home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jun.arc / MIDI.ARC / LIST10.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  512 b   |  27 lines
  1.  
  2. var
  3.   tdt1,tdt2 : track_data_block;
  4.  
  5. begin { main }
  6. load_track_data(tdt1);
  7. disp_track_data(tdt1);
  8. readln;
  9.  
  10. writeln('Transposing pitch for channel 0');
  11. transpose_pitch(tdt1,tdt2,0,6);
  12. dump_track_data(tdt2);
  13. save_track_data(tdt2);
  14.  
  15. writeln('extracting channel 0');
  16. extract_chan(tdt1,tdt2,0);
  17. disp_track_data(tdt2);
  18. save_track_data(tdt2);
  19.  
  20. writeln('filtering channel 0');
  21. filter_chan(tdt1,tdt2,0);
  22. disp_track_data(tdt2);
  23. save_track_data(tdt2);
  24.  
  25. end. { main }
  26. 
  27. writeln('filtering channel